home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 1994 January / ARPL-Jan94-Disc2of2-Partner-Edition.iso / Applications / Graphics / Cirrus Demo / Cirrus 2.0 Demo / AppleScript / Scripts / do PreScan next >
Encoding:
Text File  |  1993-06-16  |  470 b   |  16 lines  |  [TEXT/ToyS]
  1. tell application "Cirrus D-2.0"
  2.     activate
  3.     set unit to inch
  4.     copy size of scanner 1 to fullSize
  5.     (* delete all existing frames except for the PreScan *)
  6.     repeat while (number of frame in scanner 1) > 1
  7.         delete frame 2 of scanner 1
  8.     end repeat
  9.     (* setup PreScan attributes and scan it *)
  10.     tell frame "Prescan" of scanner 1
  11.         set mode to grayscale
  12.         set resolution to 0.0 -- is automatically corrected to the minimum value
  13.         set size to fullSize
  14.         scan
  15.     end tell
  16. end tell